if (Image1.Picture.Bitmap.Empty) then
  ShowMessage('No Image!')
if (Image1.Picture.Graphic = nil) then
   ShowMessage('No Image!')